home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / warndlg.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  779 b   |  40 lines
  1. { FormulaBuilder                }
  2. { YGB Software, Inc.            }
  3. { Copyright 1995 Clayton Collie }
  4. { All rights reserved           }
  5.  
  6. {* Delay warning dialog for the RTTI demo *}
  7. unit Warndlg;
  8. interface
  9. uses
  10.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  11.   StdCtrls, ExtCtrls, Forms, Buttons;
  12.  
  13. type
  14.   TDelayWarnForm = class(TForm)
  15.     BitBtn1: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     Memo1: TMemo;
  18.   end;
  19.  
  20. var
  21.   DelayWarnForm: TDelayWarnForm;
  22.  
  23.   Function ShowDelayWarning : Word;
  24.  
  25. implementation
  26. {$R *.DFM}
  27.  
  28.    Function ShowDelayWarning : word;
  29.    var dlg : TDelayWarnForm;
  30.    begin
  31.      Dlg := TDelayWarnForm.Create(NIL);
  32.      TRY
  33.        Result := Dlg.ShowModal;
  34.      FINALLY
  35.        Dlg.Free;
  36.      end;
  37.    end;
  38.  
  39. end.
  40.